非常实用的源码,获取计算机物理磁盘序列号
非常实用的源码,获取计算机物理磁盘序列号
以下是获取磁盘序列号的VB.net代码: ``` Imports System.Management Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim searcher As New ...
1.VB.NET 2008开发环境的工程文件,纯API方法获取硬盘物理序列号,也就是所谓全球唯一标识的号,通常用这个号作为软件注册的唯一标识;写到一个函数中,非常方便移植代码! 2.使用说明:打开程序后,点按钮后,三个...
'============================================'模块功能:取得硬盘的信息'更新日期:2005/7/8'调用方法:' GetDiskVolume() 取得逻辑盘的序列号' GetHardDiskInfo() 取得物理盘的型号或序列号'===================...
标签: 系统工具
该软件主要为一动态链结库文件: DiskSerial.DLL,它能获取物理硬盘的型号(Model Number)、物理序列号(Serial Number)、修订号(Revision Number)、缓存容量(Buffer Size)、柱面数(Cylinders)、磁头数(Heads)、每磁道...
网上有很多获取硬盘序列号的代码,大部分都只能取得逻辑分区的序列号,而不能取得硬盘的物理序列号;或虽然能取得物理序号,但需要外带一个VC编写的DLL文件......我们知道,逻辑分区的序列号是FORMAT时产生的,重新...
网上有很多获取硬盘序列号的代码,但大部分都只能取得逻辑分区的序列号,而不能取得硬盘的物理序列号。我们知道,逻辑分区的序列号是FORMAT时产生的,重新FORMAT将会改变。这对于要求唯一识别码的程式来说是致命的。...
在模块中加入下列声明:Public Declare Function GetVolumeInformation Lib "kernel32" _Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _ByVal lpVolumeNameBuffer As String, ByVal ...
取硬盘的物理信息(序列号,容量,转速,型号)(smHDinfo) /网站:东方热讯:http://www.easthot.net /邮件:[email protected] /2003.01.23 ***********************************************************************
很多时候我们编一个程序不一定要用到注册表来保存设置(如果说一个程序没有设置就不算好程序了)。INI是一个很好的选择。有人说,Savesetting是一个不错的选择,但是我了解到,不能永久的保存(起码在系统重装的时候...
怎样屏蔽 Alt+F4键以下代码在模块------------ 程序代码: 'http://baidu.bhdata.com'石陆软件屋... (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As...
全局鼠标键盘HOOK封装: 封装了一个键盘鼠标HOOK类,使用方便(VB6.0)需要增加的代码: '复制内容到剪贴板 程序代码Private Type MSLLHOOKSTRUCT '鼠标HOOK时lParam指针指向的结构 pt As POINTAPI dwMouseData As...
http://blog.csdn.net/fxy_2002/services/trackbacks/436183.aspx 本来想收藏的,但是不知道怎么做,所以直接copy下来了 网上有很多获取硬盘序列号的代码,但大部分都只能取得逻辑分区的序列号,而不能取得硬盘的...
刚开始想用正规的注册机办法去完成,搜罗了半天,发现现在大部分的硬盘注册机 其实并不是读取硬盘的物理序列号来进行加密的,而是采用读取磁盘分区卷标号来作为加密的基值。先按照读取磁盘卷标号开发了注册机程序,...
VB后台获得按键,并执行自己的函数(非钩子及热键)作者:丹心 QQ:121877114答案不太麻烦,一个TIMER控件即可 Option Explicit '按钮事件 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal ...
VB异常处理 (很重要) ado常见错误 ado游标及锁定介绍 免费报表控件 免费表格控件 vb数据类型(很多程序出问题出在这个,一定要看,VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite ...
介绍了应用Visual Basic进行程序开发的多方面的知识和技巧,主要包括Visual Basic的多媒体开发、数据库应用、网络技术与Web开发、安全防护与入侵破解、打印技术与报表图表、程序控制与磁盘管理和系统与硬件设备等...
http://club.excelhome.net/forum.php?mod=viewthread&tid=449527 不做技术了,但是经常用EXCEL处理数据,今天找到点有意思的东西,记录之,以后就用这方法来保密自己的信息,唬唬其他人吧。 1-19...
禁止使用 Alt-Tab 或 Ctrl-Alt-Del Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As IntegerPrivate Declare Function IsWindowEnabled ...
----------以下代码在模块 程序代码: ...Option Explicit Public Declare Function SetWindowLong Lib "... (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) ...
程序代码: '============判断窗体是否已经加载 Private Function FormIsLoad(formCaption As String) As Boolean '真为加载,假为未加载 On Error Resume Next Dim frm As Object ... ...
以下代码在窗体 程序代码: Option Explicit'http://baidu.bhdata.com'石陆软件屋Private Declare Function ... (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Lo...
’txtList是textbox控件,pop2是自定菜单名 Private Sub txtList_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then txtList.Enabled = False...
Windows API(应用程序接口)是Windows系列软件为程序开发人员提供的火力强大的“武器库”,在这个武器库中,有很多极具威力的武器,SendMessage就是其中之一,它的功能非常丰富,灵活使用这个函数,会...
如何用VB编程实现 关闭当前窗口的功能啊? 那位高手知道的帮帮忙啊? :我说的是 关闭当前的WINDOWS窗口 比如说我刚刚打开了一个名为ABC 的 文件夹 窗口 我现在想通过 用VB编程来实现关闭该窗口的功能? 请问该如何...
Microsoft .NET Compact Framework 开发常见问题解答 发布日期: 3/30/2005 | 更新日期: 3/30/2005 Microsoft .NET Compact Framework 开发的常见问题解答。 这个 FAQ 有部分是通过编辑公共 .NET Compact Framework...
VB函数大全 Calendar 常数 可在代码中的任何地方用下列常数代替实际值: 常数 值 描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -------------------------------------...